home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD001b.dsk / POKE.NAME.bas < prev    next >
BASIC Source File  |  2003-06-12  |  97b  |  2 lines
  1. 20  INPUT "NAME: ";N$
  2. 22  FOR I = 1 TO  LEN(N$):J = 28671 +I: POKE J, ASC( MID$ (N$,I,1)): NEXT I